home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Answers 2002 January
/
PC Answers January 2002.7z
/
PC Answers January 2002.bin
/
graphics
/
freepixl
/
_SETUP.1
/
Progress.pxl
< prev
next >
Wrap
Text File
|
2000-12-23
|
2KB
|
104 lines
Initialize:
WinGetActive(Win$)
UseCoordinates(PIXEL)
{GoSub Draw_Blue_Shade}
UseBackGround(TRANSPARENT,192,192,192)
DrawBackGround
WaitInput(100) {let NT and 95 catch up}
InfoMenu(REMOVE)
SetMenu()
WinLocate(Win$,200,10,600,220,Res)
Title$ = "Progress Bar Example"
WinTitle(Win$, Title$)
SetMenu("E&xit!",Leave,
ENDPOPUP,
"&Progress Bar",IGNORE,
"&Enable Progress",EnableBTM,
"&Disable Progress",Disable,
"EnableCustom",EnableCustom,
SEPARATOR,
"Increment",Increment,
"Absolute",Absolute,
"Relative",Relative,
"Progress",Progress,
SEPARATOR,
"Enable Status",EnableStatus,
"Disable Status",DisableStatus,
ENDPOPUP,
"&About",About,
ENDPOPUP)
Wait_for_Input:
WaitInput()
Leave:
End
About:
AboutPixcl
Goto Wait_for_Input
Increment:
UpdateProgressBar(10,INCREMENT)
Goto Wait_for_Input
Absolute:
UpdateProgressBar(50,ABSOLUTE)
Goto Wait_for_Input
Relative:
UpdateProgressBar(25,RELATIVE)
Goto Wait_for_Input
Progress:
UpdateProgressBar(10,INCREMENT)
WaitInput(100)
UpdateProgressBar(10,INCREMENT)
WaitInput(100)
UpdateProgressBar(10,INCREMENT)
WaitInput(100)
UpdateProgressBar(10,INCREMENT)
WaitInput(100)
UpdateProgressBar(10,INCREMENT)
WaitInput(100)
UpdateProgressBar(10,INCREMENT)
WaitInput(100)
UpdateProgressBar(10,INCREMENT)
WaitInput(100)
UpdateProgressBar(10,INCREMENT)
WaitInput(100)
UpdateProgressBar(10,INCREMENT)
WaitInput(100)
UpdateProgressBar(10,INCREMENT)
Goto Wait_for_Input
EnableStatus:
StatusWindow(ENABLE,BOTTOM,0,100,200,0,0)
Goto Wait_for_Input
DisableStatus:
StatusWindow(DISABLE,BOTTOM,0,0,0,0,0)
Goto Wait_for_Input
EnableCustom:
UseBackGround(TRANSPARENT,192,192,0)
DrawBackGround
ProgressBar(ENABLE,5,100,200,120)
DrawTextExt(10,10,300,90,
"Example of a partially filled progress bar, with a status bar as well.",LEFT)
StatusWindow(ENABLE,BOTTOM,1,290,-1,0,0)
DrawStatusWinText(0,"Long process under way ... please be patient!")
Goto Wait_for_Input
EnableBTM:
ProgressBar(ENABLE,0,0,0,0)
Goto Wait_for_Input
Disable:
ProgressBar(DISABLE,0,0,0,0)
Goto Wait_for_Input